home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / traceop.ps < prev    next >
Text File  |  1997-08-14  |  3KB  |  80 lines
  1. %    Copyright (C) 1992, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Trace individual operators or procedures.
  19. % <opref> is <opname> or <opname> <dict>
  20. %    (dict defaults to dict where op is currently defined, if writable;
  21. %    otherwise uses userdict)
  22. % <opref> traceop prints vmem usage before;
  23. % <opref> <numargs|preproc> prints arguments or runs proc before;
  24. % <opref> <numargs|preproc> <numresults|postproc>
  25. %    also prints results or runs proc after.
  26. % If traceflush is true, flush the output after each printout.
  27. /traceflush true def
  28.  
  29. currentpacking true setpacking
  30. .currentglobal true .setglobal
  31.  
  32. % Define the default "before" action
  33. /tracebefore { vmstatus 3 traceprint pop pop pop } def
  34.  
  35. % Define the default "after" action
  36. /traceafter { } def
  37.  
  38. /traceprint
  39.  { dup type /integertype eq
  40.     { 1 sub -1 0 { ( ) print index ==only } for }
  41.     { exec }
  42.    ifelse
  43.  } bind def
  44. /traceend
  45.  { traceflush { flush } if
  46.  } bind def
  47. /traceop
  48.  { userdict begin
  49.    dup type dup /nametype eq exch /dicttype eq or { { tracebefore } } if
  50.    1 index type dup /nametype eq exch /dicttype eq or { { traceafter } } if
  51.    /.tpost exch def /.tpre exch def
  52.    dup type /dicttype ne
  53.     { dup where not { userdict 1 index {} put userdict } if
  54.     } if
  55.    dup dup wcheck not
  56.     { (Warning: substituting userdict for non-writable dictionary.\n) print
  57.       pop userdict
  58.     } if
  59.    /.tddict exch def   /.tdict exch def   /.tname exch cvlit def
  60.    [ .tname /=only cvx ( ) /print cvx
  61.      /.tpre load /traceprint cvx /traceend cvx
  62.      .tdict .tname get
  63.      dup xcheck
  64.       { dup type dup /arraytype eq exch /packedarraytype eq or
  65.          { /exec cvx
  66.      } if
  67.       } if
  68.      /.tpost load /traceprint cvx (\n) /print cvx /traceend cvx
  69.    ] cvx
  70.    .tdict .tname get type /operatortype eq
  71.     { .tname exch .makeoperator
  72.     } if
  73.    .tddict exch .tname exch put end
  74.  } bind def
  75. /tracebind /bind load def    % in case someone wants to put it back
  76. /bind { } def        % disable
  77.  
  78. .setglobal
  79. setpacking
  80.